home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 99 / Tiger_Disk_099_20xx_Tiger-Crew-Disk_de_Side_B.d64 / dir.-druck [l] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  34 lines
  1. 1 printchr$(14)"[147][154]  [196]irectory-[196]ruck    adapted by [204][213][203][201][193][206]  ":fort=1to750:next
  2. 3 poke768,61:open1,4:print#1:close1:poke768,139:ifst=-128thenprint"      [196][210][213][195][203][197][210] [206][201][195][200][212] [197][201][206][199][197][211][195][200][193][204][212][197][212]!      ":end
  3. 5 poke53280,.:poke53281,.:printchr$(14)chr$(147):open4,4:print#4,chr$(27);chr$(64);:    :print#4,chr$(27);chr$(93);chr$(49);:   :
  4. 7 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:print"[221]                                      [221]";:print"[221]     [196][160][201][160][210][160][197][160][195][160][212][160][207][160][210][160][217][160]- [196][160][210][160][213][160][195][160][203]    [221]";:print"[221][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221]";:print"[221][129]   in drei [211]palten und [205]icroschrift   [221]";
  5. 9 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:print"[146][218]eichen mit [211][200][201][198][212] werden";
  6. 10 print" [199][210][207][211][211] - mit [195][194][205]      als [199][210][193][198][201][203]-[218]eichen gedruckt.       ":print"[158]";
  7. 11 print"           [196]iskette einlegen!           ":poke646,f:printtab(40)"[146][151][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164]";:print"[152][146][181] [196]rucken: [154][165][196][167][146][152] [182][182][182][182] [181][181][181][181][181] [194]eenden: [154][165][197][167][146][152] [182]";:print"[151][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163]";:wait197,63
  8. 13 getc$:ifc$=chr$(68)thenpoke53280,2:goto19
  9. 15 ifc$=chr$(69)thenprint"[147]":end
  10. 17 goto13
  11. 19 dimf$(152):dimg$(152):printchr$(147)chr$(154)chr$(142):open9,8,0,"$":print"[150]  directory wird eingelesen...      [155]":get#9,a$,b$:n0=0:poke53281,2
  12. 21 get#9,a$,b$:z0=0:x$="":ifst<>0then33
  13. 23 get#9,a$,b$:n$=chr$(0):g$=right$("      "+str$(asc(a$+n$)+asc(b$+n$)*256),6)
  14. 25 get#9,a$:ifa$=chr$(34)thenz0=sgn(z0+1)
  15. 27 ifa$=""thenn0=n0+1:n1=n0-1:gosub35:goto21
  16. 29 ifz0=1theng$=g$+a$
  17. 31 goto25
  18. 33 s=54272:pokes+24,15:pokes+4,32:pokes+5,9:pokes+6,242:pokes+4,81:close9:fori=1to11:print"[147][129]>       weiter mit [167][163][163][163]space[163][163][163][146][165]       <":pokes+1,1+rnd(1)*i:next:wait197,63:poke53280,5:pokes+4,0 :goto49
  19. 35 ifn0=1then45
  20. 37 iflen(g$)=6then47
  21. 39 aa$="":fori=8to24:c$=mid$(g$,i,1):ifc$=chr$(34)theni=24:goto43
  22. 41 aa$=aa$+c$
  23. 43 nexti:g$(n1)=left$(aa$+"                  ",18)+left$(g$,6)+"     "+id$:h1$=mid$(g$(n1),22,3):h2$=left$(g$(n1),16):h$=h1$+" "+h2$+" "+mid$(g$,26,3):print"       "h$:a=a+1:f$(a)=h$:printchr$(142);:return
  24. 45 cc$=right$(g$,24):id$=mid$(cc$,20,5):print"       ";cc$:return:print:
  25. 47 print"    ";g$;" bloecke frei.":cc$=cc$+g$+" bloecke frei.  "+da$:return
  26. 49 print"[147][159]     directory wird gedruckt...";:poke53281,5:open1,4,7:print#1,chr$(27)chr$(93)chr$(49):print#1,chr$(27)chr$(82)chr$(0):print#1:cmd1:printchr$(27)chr$(15);:printchr$(27)"s"chr$(0);:print#1,chr$(27)"a"chr$(5);" name: ";mid$(cc$,2,16);:print#1,"  id:      ";id$;:print#1,"      "mid$(cc$,28,16)
  27. 51 print#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:print#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":ifa/3<>int(a/3)anda-3*int(a/3)=2thena=a+3:goto55
  28. 53 ifa/3<>int(a/3)anda-3*int(a/3)=1thena=a+3:goto55
  29. 55 forx=1toint(a/3):print#1," "f$(x);"   ";:print#1,f$(x+int(a/3));"   ";:print#1,f$(x+2*int(a/3)):next:goto57:print#1,mid$(cc$,28,16)
  30. 57 close1:fori=1to1step.1:s=54272:pokes+24,15:pokes+4,80:pokes+5,9:pokes+6,139:pokes+1,2+rnd(1)*i:pokes+4,33 :print"[147][152]neue disk?  <j/n>";:nexti:wait197,63:pokes+4,0
  31. 59 geta$:ifa$<>"j"anda$<>"n"then59
  32. 61 ifa$="j"thenrun
  33. 63 ifa$="n"thenpoke53280,6:poke53281,14:poke646,1:print"[147] tschuess!":fort=1to999:next:sys2048
  34.